home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Games Collection 1 / software vault.zip / software vault / CDR10 / SPX20.ZIP / SPX_INT.ZIP / SPX_FNC.INT < prev    next >
Text File  |  1993-09-14  |  2KB  |  50 lines

  1. Unit SPX_FNC;
  2.  
  3. {$X+,O+ }
  4. { SPX Library Version 2.0  Copyright 1993 Scott D. Ramsay }
  5.  
  6. Interface
  7.  
  8. Uses spx_obj;
  9.  
  10. type
  11.   quitProc = procedure;
  12.  
  13. function sgn(h:integer):integer;
  14. function strint(s:string):longint;
  15. function intstr(l:longint):string;
  16. function ups(s:string):string;
  17. function st(h:longint):string;
  18. function compare(s1,s2:string):boolean;
  19. function dtcmp(var s1,s2;size:word):boolean;
  20. function cmp(var s1,s2;size:word):boolean;
  21. function lz(i,w:longint):string;
  22. function vl(h:string):longint;
  23. function spaces(h:integer):string;
  24. function repstr(h:integer;ch:char):string;
  25. function ifix(var a:integer;min,max:integer):boolean;
  26. function rfix(var a:real;min,max:real):boolean;
  27. function anything(s:string):boolean;
  28. function exist(f:string):boolean;
  29. function errmsg(n:integer):string;
  30. function TPerror(errorcode:integer) : string;
  31. procedure funpad(var s:string);
  32. procedure unpad(var s:string);
  33. procedure munpad(var s:string;b:byte);
  34. function fpad(s:string;h:integer):string;
  35. procedure pad(var s:string;h:integer);
  36. procedure fix(var s:string;h:string);
  37. procedure fixh(var s:string);
  38. function range(x,y,x1,y1,x2,y2:integer) : boolean;
  39. function rrange(x,y,x1,y1,x2,y2:real) : boolean;
  40. function between(x,x1,x2:longint):boolean;
  41. function fspaces(s:string;skip:byte):string;
  42. function GetPtr(p:pointer;offset:longint):pointer;
  43. function sar(value:integer;shift:byte):integer;
  44. function sal(value:integer;shift:byte):integer;
  45. function ptr2hex(p:pointer):string;
  46. function word2hex(w:word):string;
  47. function byte2hex(b:byte):string;
  48. procedure atexit(proc:QuitProc);
  49.  
  50.